home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / role / AMScen_0_9.lha / AMScen / Extras / icons.d < prev    next >
Text File  |  1995-01-21  |  4KB  |  187 lines
  1. type Icon_t = [16] uint;
  2.  
  3. Icon_t
  4.     CaretakerIcon = (
  5.     0b0000000000000000,
  6.     0b0001100000000000,
  7.     0b0001100000000000,
  8.     0b0000110000000000,
  9.     0b0000110000000000,
  10.     0b0000011000000000,
  11.     0b0000011000000000,
  12.     0b0000001100000000,
  13.     0b0000001100000000,
  14.     0b0000000110000000,
  15.     0b0000000111100000,
  16.     0b0000001111100000,
  17.     0b0000001111110000,
  18.     0b0000000111110000,
  19.     0b0000000110000000,
  20.     0b0000000000000000
  21.     ),
  22.  
  23.     PackratIcon = (
  24.     0b0000000000000000,
  25.     0b0000000000000000,
  26.     0b0000000000000000,
  27.     0b0000000100000000,
  28.     0b0000001010000000,
  29.     0b0001101011100000,
  30.     0b0010011110010000,
  31.     0b0001111111100000,
  32.     0b0000011101000000,
  33.     0b0000110110100000,
  34.     0b0001010101100000,
  35.     0b0010001000000000,
  36.     0b0010000000000000,
  37.     0b0100000000000000,
  38.     0b0100000000000000,
  39.     0b0000000000000000
  40.     ),
  41.  
  42.     PostmanIcon = (
  43.     0b0000000000000000,
  44.     0b0000000000000000,
  45.     0b0000000000000000,
  46.     0b0000000000000000,
  47.     0b0111111111111110,
  48.     0b0111000000001110,
  49.     0b0100110000110010,
  50.     0b0100001111000010,
  51.     0b0100000000000010,
  52.     0b0111111111111110,
  53.     0b0000000000000000,
  54.     0b0000000000000000,
  55.     0b0000000000000000,
  56.     0b0000000000000000,
  57.     0b0000000000000000,
  58.     0b0000000000000000
  59.     ),
  60.  
  61.     QuestorIcon = (
  62.     0b0000000000000000,
  63.     0b0000000000000000,
  64.     0b0000011111100000,
  65.     0b0001100000011000,
  66.     0b0010000000000100,
  67.     0b0100000000000010,
  68.     0b0100000000000010,
  69.     0b0100000000000010,
  70.     0b0100000000000010,
  71.     0b0100100000000010,
  72.     0b0100011000000010,
  73.     0b0010000110000100,
  74.     0b0001100001011000,
  75.     0b0000011111100000,
  76.     0b0000000000011100,
  77.     0b0000000000000011,
  78.     ),
  79.  
  80.     MerlinIcon = (
  81.     0b0000000000000000,
  82.     0b0000000000000000,
  83.     0b0000000111111000,
  84.     0b0000001000000100,
  85.     0b0000010000111010,
  86.     0b0000010000100110,
  87.     0b0000100000010000,
  88.     0b0000100000010000,
  89.     0b0001001001001000,
  90.     0b0001000110001000,
  91.     0b0010011111100100,
  92.     0b0010000110000100,
  93.     0b0100001001000010,
  94.     0b0100000000000010,
  95.     0b0011111111111100,
  96.     0b0000000000000000
  97.     ),
  98.  
  99.     WandererIcon = (
  100.     0b0000000000000000,
  101.     0b0000011111100000,
  102.     0b0000100000010000,
  103.     0b0001000000001000,
  104.     0b0010001111000100,
  105.     0b0100010000100010,
  106.     0b0100100000010010,
  107.     0b0100100110010010,
  108.     0b0100100110010010,
  109.     0b0100100000010010,
  110.     0b0100010000100010,
  111.     0b0010001111000100,
  112.     0b0001000000001000,
  113.     0b0000100000010000,
  114.     0b0000011111100000,
  115.     0b0000000000000000
  116.     ),
  117.  
  118.     RockPileIcon = (
  119.     0b0000000000000000,
  120.     0b0000000000000000,
  121.     0b0000000000000000,
  122.     0b0000000000000000,
  123.     0b0000000000000000,
  124.     0b0000000000000000,
  125.     0b0000000000000000,
  126.     0b0000110001110000,
  127.     0b0001001010001000,
  128.     0b0001101110000100,
  129.     0b0011010010110100,
  130.     0b0010100001001100,
  131.     0b0100101101010010,
  132.     0b0100110010001010,
  133.     0b0011001101110100,
  134.     0b0000000000000000
  135.     ),
  136.  
  137.     Cursor = (
  138.     0b0111110000000000,
  139.     0b1100011000000000,
  140.     0b1010101000000000,
  141.     0b1000001000000000,
  142.     0b1011101000000000,
  143.     0b1100011000000000,
  144.     0b0111110000000000,
  145.     0b0000000000000000,
  146.     0b0000000000000000,
  147.     0b0000000000000000,
  148.     0b0000000000000000,
  149.     0b0000000000000000,
  150.     0b0000000000000000,
  151.     0b0000000000000000,
  152.     0b0000000000000000,
  153.     0b0000000000000000,
  154.     );
  155.  
  156. proc dumpIcon(register *char owner; register *uint p)void:
  157.     register uint i;
  158.     register ulong ul;
  159.  
  160.     writeln("define t_icons proc make", owner, "()list int:");
  161.     writeln("    list int li;");
  162.     writeln();
  163.     writeln("    li := CreateIntArray(8);");
  164.     for i from 0 upto 8 - 1 do
  165.     ul := p*;
  166.     p := p + sizeof(uint);
  167.     ul := ul << 16;
  168.     ul := ul | p*;
  169.     p := p + sizeof(uint);
  170.     writeln("    li[", i, "] := 0b", ul : b : -32, ";");
  171.     od;
  172.     writeln("    li");
  173.     writeln("corp;");
  174. corp;
  175.  
  176. proc main()void:
  177.  
  178.     dumpIcon("CaretakerIcon", &CaretakerIcon[0]);
  179.     dumpIcon("PackratIcon", &PackratIcon[0]);
  180.     dumpIcon("PostmanIcon", &PostmanIcon[0]);
  181.     dumpIcon("QuestorIcon", &QuestorIcon[0]);
  182.     dumpIcon("MerlinIcon", &MerlinIcon[0]);
  183.     dumpIcon("WandererIcon", &WandererIcon[0]);
  184.     dumpIcon("RockPileIcon", &RockPileIcon[0]);
  185.     dumpIcon("Cursor", &Cursor[0]);
  186. corp;
  187.